COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		REAL I,II,III,IV
C00005 ENDMK
C⊗;
	REAL I,II,III,IV
	DIMENSION NM(4,18),I(18),II(12,18),III(18),IV(4,18)
	1,GRADE(18),XI(18),XII(18),XIII(18),XIV(18)
	DATA NM/
	1'ASH,REUEL           ','COHEN,ANDY          ',
	1'DAMON,RICHARD       ','DYRUD,BETH          ',
	1'GAVER,ELIZ.         ','GRANT,SUSAN         ',
	1'HALBERT,ALLAN       ','LEE,VIVIANNE        ',
	1'MILLER,ROBERT       ','OSBORNE,KIM         ',
	1'PERLOFF,NANCY       ','RAIN,BARBARA        ',
	1'SAWHILL,BRUCE       ','SETRAKIAN,MARY      ',
	1'SIMS,JANET          ','TOGASHI,SANDRA      ',
	1'WASSERMAN,NATALIE   ','WEISZ,MARGIE        '/
	CALL IFILE(1,'FINL')
	JK=0
32	READ(1,44,END=33)K
	DO 31 N=1,18
31	IF(K.EQ.NM(1,N))GO TO 1
	GO TO 32
1	TYPE 2,(NM(K,N),K=1,4)
2	FORMAT(1X,4A5)
44	FORMAT(A5)
CC	READ(1,4)(II(K,N),K=1,12)
  	RI=0
CC	DO 7  K=1,12
CC	IF(II(K,N).NE.0)GO TO 7
CC	TYPE 8
8	FORMAT(' **** MISSING INPUT ****'/)
CC7	RI=RI+II(K,N)
CC	RI=RI/120*20
C QUEST. I IS IN 12 PARTS.  IT ALL = 20% OF EXAM.
CC	XI(N)=RI
4	FORMAT(20F)
C QUEST. II, III, IV  = 26.66%
	READ(1,4)(IV(K,N),K=1,4)
	RIV=0
	DO 12 K=1,4
	IF(IV(K,N).NE.0)GO TO 12
	TYPE 8
12	CONTINUE
	XI(N)=IV(1,N)*.16666
	XII(N)=IV(2,N)*2.6666
	XIII(N)=IV(3,N)*2.6666
	XIV(N)=IV(4,N)*0.889 
	GRADE(N)=XI(N)+XII(N)+XIII(N)+XIV(N)
	JK=JK+1
	GO TO 32

22	FORMAT(' GRADE=',F5.2,/' I=',F5.2,'   II=',F5.2,
	1'   III=',F5.2,'   IV=',F5.2/)
33	CALL OFILE(1,'GRADE')
	RK=JK
	R=0
	DO 25 K=1,18
25	R=R+GRADE(K)
	R=R/RK
	TYPE 24,R
	WRITE(1,24)R
24	FORMAT(/' AVERAGE=',F5.2/)
	DO 23 K=1,18
	IF(GRADE(K).EQ.0)GO TO 23
	TYPE 2,(NM(N,K),N=1,4)
	WRITE(1,2),(NM(N,K),N=1,4)
	TYPE 22,GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
	WRITE(1,22)GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
23	CONTINUE
27	FORMAT(12F7.2,/3F7.2//)
	END